﻿''' <summary>
''' 文件信息类
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class FarStations
    Implements ICloneable
   
    ''' <summary>
    ''' 文件名 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_FileName As String
    ''' <summary>
    ''' 文件路径 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_FilePath As String
    ''' <summary>
    ''' 时区 (Integer)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_TimeZone As String
    ''' <summary>
    '''  高程 (Double)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_Elev As Double
    ''' <summary>
    ''' 站台编号 (Integer)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_StationID As Integer
    ''' <summary>
    ''' 文件名 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property FileName() As String
        Get
            Return Me.m_FileName
        End Get
        Set(ByVal value As String)
            Me.m_FileName = value
        End Set
    End Property
    ''' <summary>
    ''' 文件路径 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property FilePath() As String
        Get
            Return Me.m_FilePath
        End Get
        Set(ByVal value As String)
            Me.m_FilePath = value
        End Set
    End Property
    ''' <summary>
    ''' 时区 (Integer)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property TimeZone() As String
        Get
            Return Me.m_TimeZone
        End Get
        Set(ByVal value As String)
            Me.m_TimeZone = value
        End Set
    End Property
    ''' <summary>
    ''' 高程 (Double)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Elev() As Double
        Get
            Return Me.m_Elev
        End Get
        Set(ByVal value As Double)
            Me.m_Elev = value
        End Set
    End Property
    ''' <summary>
    ''' 站台编号 (Integer)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property StationID() As Integer
        Get
            Return Me.m_StationID
        End Get
        Set(ByVal value As Integer)
            Me.m_StationID = value
        End Set
    End Property
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New FarStations
        obj.FileName = Me.m_FileName
        obj.FilePath = Me.m_FilePath
        obj.TimeZone = Me.m_TimeZone
        obj.Elev = Me.m_Elev
        obj.StationID = Me.m_StationID
        Return obj
    End Function

End Class
